home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1985 January
/
1985-01.d64
/
baker's dozen 2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
733b
|
24 lines
10 printchr$(147):forx=1to500:next
20 poke53280,0:poke53281,0
30 v=1475:a=-39:b=-41:c=39:d=41:w=1491:q=int(255*rnd(1))+1:printq:s=55753
40 u=55757
50 t=int(15*rnd(1))+1
60 pokev,q:pokes,t:printt
70 n=1:forx=1ton:pokev+a,q:pokes+a,t:v=v+a:s=s+a:next
80 forx=1ton:pokev+b,q:pokes+b,t:v=v+b:s=s+b:next
90 n=n+1:forx=1ton:pokev+c,q:pokes+c,t:v=v+c:s=s+c:next
100 forx=1ton:pokev+d,q:pokes+d,t:v=v+d:s=s+d:next
110 n=n+1:forx=1ton:pokev+a,q:pokes+a,t:v=v+a:s=s+a:next
120 forx=1ton:pokev+b,q:pokes+b,t:v=v+b:s=s+b:next
130 ifv>1042then90
140 pokew,q:pokeu,t
150 n=1:forx=1ton:pokew+a,q:pokeu+a,t:w=w+a:u=u+a:next
160 forx=1ton:pokew+b,q:pokeu+b,t:w=w+b:u=u+b:next
170 n=n+1:forx=1ton:pokew+c,q:pokeu+c,t:w=w+c:u=u+c:next
180 forx=1ton:pokew+d,q:pokeu+d,t:w=w+d:u=u+d:next
190 n=n+1:forx=1ton:pokew+a,q:pokeu+a,t:w=w+a:u=u+a:next
200 forx=1ton:pokew+b,q:pokeu+b,t:w=w+b:u=u+b:next
210 ifw>1042then170
220 forx=1to1000:next
230 goto10